home *** CD-ROM | disk | FTP | other *** search

---

/ Chip 1996 April / CHIP 1996 aprilis (CD06).zip / CHIP_CD06.ISO / hypertxt.arj / 9404 / SCREEN21.GIF

< prev

next >

Graphics Interchange Format  |  1994-11-24  |  14KB  |  640x481  |  4-bit (5 colors)

Labels: crt screen | dialog box | earth | window
OCR: Edit Style Graph Frint Database Tools Options Window Copu Move Stule A1: sr Font SUM ormat PaNm Grp Macro A25 [W16] 25 {CTRL+HOME}{PANELOFF}{WINDOWSOFF} 26 IMESSAGE msg creet.0.0.0 27 {GRAPHCHAR key} 28 {IF @UPPER( key)= "Q"}{QUIT} 29 {IF @UPPER key) - "C"}{BRANCH -main macro} 30 {BRANCH init macro 31 32 {;initialize application variables 33 init macrc (LET ch bal f"@IF(D4 =0#AND#E4= =0#AND#F4=0, +G3.D4 4+F4+ -G3 y":String} 34 {LET AS bal f,"@IF( C4 =0#AND#D4 0#AND#E4=0,+F3 C4-D4 +E4+F3 ":string} 35 {LET ctitl r "$Checking:$A$2 $G$2 STRING 36 ILET _ctitl ms, "$Checking Data $B$5 $H$5 :s TRING 37 {LET ch clr "$Checking Data B$2 C$2S TRING} 38 ILET _stitl rg A$2 $F$2 "STRING} 38 ILET stitl ms Data $B$5 $G$5 ""STRING} 40 [LET s clr, Data $B$2 $B$2 STRING 4 {BRANCH main vr} 42 43 44 {;Main men ...

---